SET PROCEDURE TO \GESVISUAL\PROGS\GER_PRG_FUNCOES.PRG